#  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  # 
# The Statify Function
#  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  # 

# Statify() is a very basic function that simply
# automates the task of running robust standard 
# errors a la Stata.

statify <- function(model){
	require(sandwich)  # just to make sure
	foo <- model  # cloning
	if(is.list(model)==FALSE){
		print("Statify requires an object of type `list.'")
		} else {
			foo$se <- vcovHC(model,type="HC1")
		}
		return(foo)
	}
